﻿Imports System.Data


Public Class Broker


#Region "Properities"

    Private _ID As Integer
    Public Property ID() As Integer
        Get
            Return _ID
        End Get
        Set(ByVal value As Integer)
            _ID = value
        End Set
    End Property

    Private _BrokerName As String
    Public Property BrokerName() As String
        Get
            Return _BrokerName
        End Get
        Set(ByVal value As String)
            _BrokerName = value
        End Set
    End Property

    Private _BrokerLocInst As String
    Public Property BrokerLocInst() As String
        Get
            Return _BrokerLocInst
        End Get
        Set(ByVal value As String)
            _BrokerLocInst = value
        End Set
    End Property

    Private _BrokerBIC As String
    Public Property BrokerBIC() As String
        Get
            Return _BrokerBIC
        End Get
        Set(ByVal value As String)
            _BrokerBIC = value
        End Set
    End Property

    Private _SSI As dsSSI.SSIsDataTable
    Public Property SSI() As dsSSI.SSIsDataTable
        Get
            Return _SSI
        End Get
        Set(ByVal value As dsSSI.SSIsDataTable)
            _SSI = value
        End Set
    End Property

    Private _CLSAccounts As DataTable
    Public Property CLSAccounts() As DataTable
        Get
            Return _CLSAccounts
        End Get
        Set(ByVal value As DataTable)
            _CLSAccounts = value
        End Set
    End Property

    Private _CLSCCYs As DataTable
    Public Property CLSCCYs() As DataTable
        Get
            Return _CLSCCYs
        End Get
        Set(ByVal value As DataTable)
            _CLSCCYs = value
        End Set
    End Property

    Private _CLSBIC As String
    Public Property CLSBIC() As String
        Get
            Return _CLSBIC
        End Get
        Set(ByVal value As String)
            _CLSBIC = value
        End Set
    End Property

    Private _ThirdPartyBIC As String
    Public Property ThirdPartBIC() As String
        Get
            Return _ThirdPartyBIC
        End Get
        Set(ByVal value As String)
            _ThirdPartyBIC = value
        End Set
    End Property

    Private _IsCLS As Boolean
    Public Property IsCLS() As Boolean
        Get
            Return _IsCLS
        End Get
        Set(ByVal value As Boolean)
            _IsCLS = value
        End Set
    End Property

    Private _Is3rdPartySettle As Boolean
    Public Property Is3rdPartySettle() As Boolean
        Get
            Return _Is3rdPartySettle
        End Get
        Set(ByVal value As Boolean)
            _Is3rdPartySettle = value
        End Set
    End Property




#End Region

    Sub New()
        Me.CLSAccounts = New DataTable("CLSAccounts")
        Me.CLSCCYs = New DataTable("CLSCCYS")
        Me.SSI = New dsSSI.SSIsDataTable
        Me.CLSAccounts.Columns.Add("Fund", Type.GetType("System.String"))
        Me.CLSAccounts.Columns.Add("Cust. BIC", Type.GetType("System.String"))
        Me.CLSCCYs.Columns.Add("CCY", Type.GetType("System.String"))

    End Sub

    Public Overrides Function ToString() As String
        Return Me.BrokerName
        'Return MyBase.ToString()
    End Function

End Class

